home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MacOberon.cpt / MacOberonToolBoxInterface.sit / MacMenus.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1990-08-30  |  3.9 KB  |  69 lines  |  [.Ob./.Ob*]
  1. Syntax10.Scn.Fnt
  2. MODULE MacMenus;    (* Macintosh OS Interface Module    Michael Franz, 30.08.90    Complete Interface, except for Color Menus *)
  3. IMPORT
  4.     TY:= MacTypes;
  5. CONST
  6.     (* Mark symbol for MarkItem. *)
  7.         noMark= 0;
  8.     (* Menu defProc messages. *)
  9.         mDrawMsg = 0;    mChooseMsg = 1;    mSizeMsg = 2;
  10.     (* Resource ID of standard menu definition procedure. *)
  11.         textMenuProc = 0;
  12.     hMenuCmd = 1BH;    (* itemCmd == 0x001B ==> hierarchical menu attached to this item *)
  13.     hierMenu = -1;    (* a hierarchical menu - for InsertMenu call *)
  14.     mPopUpMsg = 3;    (* menu defProc messages - place yourself *)
  15.     mctAllItems = -98;    (* search for all Items for the given ID *)
  16.     mctLastIDIndic = -99;    (* last color table entry has this in ID field *)
  17.     Style= INTEGER;    (* SET OF StyleItem *)
  18.     MenuInfo*= RECORD +
  19.         menuID*: INTEGER;
  20.         menuWidth, menuHeight: INTEGER;
  21.         menuProc: TY.ProcHandle;
  22.         enableFlags*: SET;
  23.         menuData: TY.Str255
  24.     END;
  25.     MenuPtr*= POINTER + TO MenuInfo;
  26.     MenuAnchor*= RECORD + p*: MenuPtr END;
  27.     MenuHandle*= POINTER + TO MenuAnchor;
  28. PROCEDURE - InitMenus*()    0A9H, 030H;
  29. PROCEDURE - NewMenu*(menuID: INTEGER; menuTitle: TY.Str255): MenuHandle    0A9H, 031H;
  30. PROCEDURE - GetMenu*(resourceID: INTEGER): MenuHandle    0A9H, 0BFH;
  31. PROCEDURE - DisposeMenu*(theMenu: MenuHandle)    0A9H, 032H;
  32. PROCEDURE - AppendMenu*(menu: MenuHandle; data: TY.Str255)    0A9H, 033H;
  33. PROCEDURE - AddResMenu*(theMenu: MenuHandle; theType: LONGINT)    0A9H, 04DH;    (* TY.ResType *)
  34. PROCEDURE - InsertResMenu(theMenu: MenuHandle; theType: LONGINT; afterItem: INTEGER)    0A9H, 051H;    (* TY.ResType *)
  35. PROCEDURE - InsertMenu*(theMenu: MenuHandle; beforeID: INTEGER)    0A9H, 035H;
  36. PROCEDURE - DrawMenuBar*()    0A9H, 037H;
  37. PROCEDURE - DeleteMenu*(menuID: INTEGER)    0A9H, 036H;
  38. PROCEDURE - ClearMenuBar*()    0A9H, 034H;
  39. PROCEDURE - GetNewMBar*(menuBarID: INTEGER): TY.Handle    0A9H, 0C0H;
  40. PROCEDURE - GetMenuBar*(): TY.Handle    0A9H, 03BH;
  41. PROCEDURE - SetMenuBar*(menuList: TY.Handle)    0A9H, 03CH;
  42. PROCEDURE - InsMenuItem*(theMenu: MenuHandle; itemString: TY.Str255; afterItem: INTEGER)    0A8H, 026H;
  43. PROCEDURE - DelMenuItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 052H;
  44. PROCEDURE - MenuKey*(ch: TY.UnpackedChar): LONGINT    0A9H, 03EH;
  45. PROCEDURE - HiliteMenu*(menuID: INTEGER)    0A9H, 038H;
  46. PROCEDURE - SetItem*(theMenu: MenuHandle; item: INTEGER; itemString: TY.Str255)    0A9H, 047H;
  47. PROCEDURE - GetItem*(theMenu: MenuHandle; item: INTEGER; VAR itemString: TY.Str255)    0A9H, 046H;
  48. PROCEDURE - DisableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 03AH;
  49. PROCEDURE - EnableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 039H;
  50. PROCEDURE - CheckItem*(theMenu: MenuHandle; item: INTEGER; checked: BOOLEAN)    0A9H, 045H;
  51. PROCEDURE - SetItemMark*(theMenu: MenuHandle; item: INTEGER; markChar: TY.UnpackedChar)    0A9H, 044H;
  52. PROCEDURE - GetItemMark*(theMenu: MenuHandle; item: INTEGER; VAR markChar: TY.UnpackedChar)    0A9H, 043H;
  53. PROCEDURE - SetItemIcon*(theMenu: MenuHandle; item: INTEGER; icon: TY.UnpackedByte)    0A9H, 040H;
  54. PROCEDURE - GetItemIcon*(theMenu: MenuHandle; item: INTEGER; VAR iconNum: TY.UnpackedByte)    0A9H, 03FH;
  55. PROCEDURE - SetItemStyle(theMenu: MenuHandle; item: INTEGER; chStyle: Style)    0A9H, 042H;
  56. PROCEDURE - GetItemStyle(theMenu: MenuHandle; item: INTEGER; VAR chStyle: Style)    0A9H, 041H;
  57. PROCEDURE - CalcMenuSize(theMenu: MenuHandle)    0A9H, 048H;
  58. PROCEDURE - CountMItems(theMenu: MenuHandle): INTEGER    0A9H, 050H;
  59. PROCEDURE - GetMHandle*(menuID: INTEGER): MenuHandle    0A9H, 049H;
  60. PROCEDURE - FlashMenuBar*(menuID: INTEGER)    0A9H, 04CH;
  61. PROCEDURE - SetMenuFlash*(count: INTEGER)    0A9H, 04AH;
  62. PROCEDURE - MenuSelect*(startPt: TY.Point): LONGINT    0A9H, 03DH;
  63. PROCEDURE - InitProcMenu(resID: INTEGER)    0A8H, 008H;
  64. PROCEDURE - GetItemCmd(theMenu: MenuHandle; item: INTEGER; VAR cmdChar: TY.UnpackedChar)    0A8H, 04EH;
  65. PROCEDURE - SetItemCmd(theMenu: MenuHandle; item: INTEGER; cmdChar: TY.UnpackedChar)    0A8H, 04FH;
  66. PROCEDURE - PopUpMenuSelect(menu: MenuHandle; top: INTEGER; left: INTEGER; popUpItem: INTEGER): LONGINT    0A8H, 00BH;
  67. PROCEDURE - MenuChoice(): LONGINT    0AAH, 066H;
  68. END MacMenus.
  69.